home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / FORTRAN / 3017.ZIP / RDKEY.FOR < prev    next >
Text File  |  1988-10-30  |  584b  |  28 lines
  1.       PROGRAM RDKEY
  2. C
  3. C     TO READ KEYBOARD & DISPLAY CODE
  4. C     OLYMPIC SOFTWARE  --  9/23/88
  5. C
  6.       EXTERNAL KBIOS
  7.       INTEGER*2 IAR(3)
  8. C
  9.       WRITE(*,20)
  10.  20   FORMAT(' PRESS ^BREAK TO END THIS PROGRAM',/,
  11.      1       ' PRESS ANY KEY: ',$)
  12.  100  IAR(1)=1
  13.       CALL KBIOS(IAR)
  14.       IF(IAR(3).EQ.0)THEN
  15.         IAR(1)=0
  16.         CALL KBIOS(IAR)
  17.         WRITE(*,51)IAR(1),IAR(2)
  18.  51     FORMAT(' SCAN CODE= ',I4,'  CHARACTER CODE(ASCII)= ',I4,/,
  19.      1         ' PRESS ANY KEY: ',$)
  20.       ENDIF
  21.       GOTO 100
  22.       STOP
  23.       END
  24.  
  25.         
  26.       
  27.  
  28.